home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1997 January
/
Macworld (1997-01).dmg
/
QuarkImmedia™1.01 Demo
/
Power Macintosh Demo
/
QuarkXPress - Int'l English
/
QuarkXPress™ Demo
/
QuarkXPress™ 3.32r5 Demo
/
QuarkXPress™ 3.32r5 Demo.rsrc
/
STR#_800.txt
< prev
next >
Wrap
Text File
|
1996-11-01
|
2KB
|
289 lines
mx3 z
R2
R1
R0
grpatch
sepatch
calcbnd
F vtadj
T vtadj
aload pop]cvx exch}for pop}B
/rdstr{0 1 3 -1 roll{strn 1 3 -1 roll 48 add put dup strn cvn exch string def[
mx0 z
mx0 currentmatrix pop
bn
pkng{savepacking setpacking}if
Z
2 blnd
0 blnd
cirm
cutm
regmarkdict begin
pop pop
docpat{
/setpageparams where{pop 1 setpageparams}{letter pop 0 exch 792 sub neg translate pop}ifelse
/patfr 1 1 mtx defaultmatrix dtransform pop abs
dup 72 mul 4 -1 roll div exch .5 add cvi 8 mul dup 8 lt{pop 8}if div def
/CT ctf def
{currentfile}aload pop strn cvn load{readhexstring pop}
{currentfile}aload pop strn cvn load{readstring pop}
F setregcolor
3 -1 roll add 3 1 roll add
st0
/opimtx matrix currentmatrix def
dup /custsh X setcustomcolor
/epsmtx matrix currentmatrix def
1 index 0 exch translate 1 -1 scale
dup 0 translate -1 1 scale
pen 0 H 0 b
{currentfile /RunLengthDecode filter}aload pop strn cvn load{readstring pop}
0 0]
/xpys X /ctz
dup length custnamstr dup 79 3 index put 0 3 -1 roll getinterval copy custar astore
F rc u)kp
/custprsnt F def -1/regsh X
/custprsnt T def -1/regsh X
}appod
bkc 0 0 put
ptc G
bkc 0 1 put
rstrscr mtx1 z/pnm 1 def
mtx1 currentmatrix pop crntc cps
rdstr
F rc V G
F rc n G
initclip F rc u)kp
opimtx z
***
u)strtp
U)strtp
custblnd
F rc g u cps np mif
1 setdg
epR
epS
> pat
dup /custsh X T setregcolor
/setstrokeadjust where{pop F setstrokeadjust}if
/setscr0{
/getangl{
/setangl{
F stovp
0 sttrp
T stovp
F ov
F rc
0 gr
64 gr
T rc
T ov
}B
xps2ps
s2qd
xpbu
xpbn
bmp
sttrp
stovp
epsdict begin epsetup
rs
rv
rr1
/nf
h
setchc
ul
crs
sp
epsmtx
pkng{savepacking setpacking}if
px
lw
rh
dh
qq
eu
ec
ef
tc
te
tp
dfnt
f
L
ply
strik
/ss X
sen
ssn
ssh
D
d
std
bu
spcldr
tt
endp
pkng{/savepacking currentpacking def true setpacking}if
mif setc
/ff X
ep
imx z
ar
rr
lin
qc
qi
imx currentmatrix pop
pt
bp
cpat
rstrscr
pen
sg
gr